<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<style type="text/css">
<!--


.NormalTex {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	color: #333;
	text-align: left;
}
-->
</style>
<script> 
function cerrarse(){ 
window.close() 
} 
</script> 

<%
Dim var_asp,var_asp1,var_asp2,var_asp3,var_asp4,var_asp5,var_asp6,var_asp7,var_asp8,var_asp9,var_asp10,var_asp11

var_asp12 = Request.Form("varia1")  'nom 2

var_asp10 = Request.Form("varia2")  'nom 1
var_asp11 = Request.Form("varia3")  'nom 2

var_asp13 = Request.Form("varia4")  'nom 2
var_asp14 = Request.Form("varia5")  'nom 2
var_asp15 = Request.Form("varia6")  'nom 2


var_asp = Request.Form("varia7") 'potencia
var_asp1 = Request.Form("varia8") 'lon equiva
var_asp2 = Request.Form("varia9")  ' arte 1
var_asp3 = Request.Form("varia10")' arte 2
var_asp4 = Request.Form("varia11") ' tr  AB
var_asp5 = Request.Form("varia12")' tr  bc
var_asp6 = Request.Form("varia13")' tr  bd
var_asp7 = Request.Form("varia15") ' dia ab
var_asp8 = Request.Form("varia16") 'dia bc
var_asp9 = Request.Form("varia17") 'dia bd


var_asp18 = Request.Form("varia18")
var_asp19 = Request.Form("varia19")
var_asp20 = Request.Form("varia20")
var_asp21 = Request.Form("varia21")


Dim fechaactual,d,m,a
fechaactual = Date()


d=Day(fechaactual)
m=Month(fechaactual)
a=Year(fechaactual)

fec=d&"/"&m&"/"&a&"-"&var_asp12

%>
<!--#include file="cnxBd.asp"-->
<%
	
	
	
'strSQL = "insert into instaladores (direccionp,nombre,resultado) values ('" & dato1 & "','" & dato2 & "','" & dato3 & "')" 

strSQL = "insert into calc_instaladores2c (nregistro,nombre1,nombre2,numdirec,disdirec,direccion2,num2,medidor,regulador,coding,artef1,tramobc,diametrobc,artef2,tramobd,diametrobd,tramoab,diametroab,potencian,longitude,fecha) values ('" & fec & "','" & var_asp10 & "','" & var_asp11 & "','" & var_asp13 & "','" & var_asp14 & "','" & var_asp15 & "','" & var_asp18 & "','" & var_asp19 & "','" & var_asp20 & "','" & var_asp21 & "','" & var_asp2 & "','" & var_asp5 & "','" & var_asp8 & "','" & var_asp3 & "', '" & var_asp6 & "','" & var_asp9 & "','" & var_asp4 & "','" & var_asp7 & "','" & var_asp & "','" & var_asp1 & "','"&a&"/"&m&"/"&d&"')" 
   
    Conn.Execute(strSQL) 


   Conn.Close 
   set Conn = nothing 
   'Response.Redirect("ejem07d.asp") 
  


%>

<table width="559" border="0" cellspacing="0" cellpadding="0">
<tr>
    <td height="100" colspan="2" class="NormalTex" align="left" valign="top"><img src="logo.jpg"  border="0"/> </td>
    
  </tr>
<tr>
    <td height="37" colspan="2" class="NormalTex">Valores  para el CASO 2 , fueron registrados </td>
    
  </tr>
  
  <tr>
    <td>&nbsp;</td>
    <td class="NormalTex"><input type=button value="Cerrar" onclick="cerrarse()"></td>
  </tr>
</table>